home *** CD-ROM | disk | FTP | other *** search
- -- background: 5997 from stack: in
- -- bmap block id: 6374
- -- flags: 0000
- -- background id: 0
- -- name:
- ----- HyperTalk script -----
- ON OPENCARD
- HIDE BACKGROUND FIELD "SHOW"
- END OPENCARD
-
-
-
- -- part 2 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=159 top=107 right=159 bottom=216
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 3 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=49 top=107 right=158 bottom=105
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 4 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=49 top=175 right=225 bottom=105
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 5 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=104 top=175 right=225 bottom=160
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 6 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=160 top=175 right=225 bottom=216
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 7 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=49 top=242 right=293 bottom=103
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 8 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=102 top=243 right=293 bottom=158
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 9 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=158 top=243 right=293 bottom=216
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 10 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=228 top=107 right=159 bottom=284
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 11 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=283 top=107 right=159 bottom=338
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 12 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=338 top=107 right=159 bottom=395
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 13 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=228 top=176 right=226 bottom=287
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 14 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=285 top=176 right=226 bottom=340
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 15 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=340 top=176 right=226 bottom=394
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 16 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=229 top=243 right=295 bottom=287
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 17 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=286 top=243 right=295 bottom=341
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 18 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=341 top=243 right=294 bottom=394
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 20 (field)
- -- low flags: 00
- -- high flags: 4000
- -- rect: left=53 top=81 right=99 bottom=392
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 12288
- -- line height: 16
- -- part name: lab name
-
-
- -- part 21 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=402 top=150 right=185 bottom=510
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: freezer
-
-
- -- part 22 (button)
- -- low flags: 00
- -- high flags: 8000
- -- rect: left=409 top=21 right=39 bottom=508
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Return to Map
- ----- HyperTalk script -----
- on mouseUp
- put item 1 of field 3 into z
- go to card z of stack "box1"
- --go back to Map card
- end mouseUp
-
-
-
- -- part 23 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=405 top=305 right=328 bottom=431
- -- title width / last selected line: 0
- -- icon id / first selected line: 1014 / 1014
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Prev
- ----- HyperTalk script -----
- on mouseUp
- go to prev card
- end mouseUp
-
-
-
- -- part 24 (button)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=437 top=306 right=329 bottom=462
- -- title width / last selected line: 0
- -- icon id / first selected line: 1013 / 1013
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Next
- ----- HyperTalk script -----
- on mouseUp
- go to next card
- end mouseUp
-
-
-
- -- part 26 (field)
- -- low flags: 00
- -- high flags: 0000
- -- rect: left=402 top=224 right=259 bottom=510
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: card id
-
-
- -- part 45 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=408 top=43 right=65 bottom=508
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: pop card
- ----- HyperTalk script -----
- on mouseUp
- pop card
- end mouseUp
-
-
-
- -- part 47 (button)
- -- low flags: 00
- -- high flags: 8000
- -- rect: left=408 top=66 right=88 bottom=508
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: go to lab
- ----- HyperTalk script -----
- on mouseUp
- push card
- if field "lab name" is empty then
- ask "what is the name of the lab"
- if it is empty then exit mouseup
- put it into field "lab Name"
- end if
- put field "lab Name" into labName
- go to stack "box1"
- go to card item 1 of labName
- end mouseUp
-
-
-
-
- -- part 48 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=409 top=91 right=113 bottom=509
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: no. of cards
- ----- HyperTalk script -----
- on mouseUp
- set userlevel to 5
- put empty into message box
- get number of cards
- put "The total Number of Cards = " into word 1 of message
- put it into word 7 of message
- set userlevel to 2
- end mouseUp
-
-
-
- -- part 51 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=53 top=25 right=78 bottom=391
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 256
- -- line height: 16
- -- part name: name
-
-
- -- part 52 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=409 top=195 right=218 bottom=505
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Empty all
- ----- HyperTalk script -----
- on mouseUp
- answer "Do you want to empty all fields?" with "yes" or "no" or "cancel"
- if it is "no" then exit mouseUp
- if it is "cancel" then exit mouseUp
- repeat with i=1 to number of fields
- put empty into field i
- end repeat
-
- end mouseUp
-
-
-
- -- part 53 (field)
- -- low flags: 00
- -- high flags: 0007
- -- rect: left=105 top=108 right=159 bottom=161
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 9
- -- style flags: 0
- -- line height: 12
- -- part name:
-
-
- -- part 54 (button)
- -- low flags: 00
- -- high flags: 8000
- -- rect: left=471 top=294 right=335 bottom=512
- -- title width / last selected line: 0
- -- icon id / first selected line: 32462 / 32462
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Help
- ----- HyperTalk script -----
- on mouseUp
- push card
- go to card id 11167 of stack "box4"
- end mouseUp
-
-
-
-
- -- part 56 (field)
- -- low flags: 80
- -- high flags: 4007
- -- rect: left=49 top=23 right=340 bottom=511
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 0
- -- font id: 3
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: SHOW
-
-
- -- part 60 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=0 top=283 right=311 bottom=35
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: hide
- ----- HyperTalk script -----
- on mouseUp
- global LL
- global FF
- global CC
- global MM
- put 1 into CC
- put empty into MM
- get the number of lines in field "show"
- put it into LL
- repeat for LL times
- get line CC of field "SHOW"
- put it after MM
- add 1 to CC
- end repeat
-
- hide field "SHOW"
- repeat with c =1 to number of card buttons
- show card button c
- end repeat
- end mouseUp
-
-
-
- -- part 61 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=1 top=312 right=342 bottom=35
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Zoom
- ----- HyperTalk script -----
- on mouseUp
-
- global FF
- global LL
- global CC
- global MM
- put empty into MM
- put 1 into CC
- ask "Which field you like to see?" with "A1"
- if it is empty then exit mouseUp
- if it is not in "A1A2A3A4A5A6B1B2B3B4B5B6C1C2C3C4C5C6" then exit mouseUp
- put it into WFF
- if WFF is "A1" then put 2 into FF
- if WFF is "A2" then put 22 into FF
- if WFF is "A3" then put 1 into FF
- if WFF is "B1" then put 3 into FF
- if WFF is "B2" then put 4 into FF
- if WFF is "B3" then put 5 into FF
- if WFF is "A4" then put 9 into FF
- if WFF is "A5" then put 10 into FF
- if WFF is "A6" then put 11 into FF
- if WFF is "B4" then put 12 into FF
- if WFF is "B5" then put 13 into FF
- if WFF is "B6" then put 14 into FF
- if WFF is "C1" then put 6 into FF
- if WFF is "C2" then put 7 into FF
- if WFF is "C3" then put 8 into FF
- if WFF is "C4" then put 15 into FF
- if WFF is "C5" then put 16 into FF
- if WFF is "C6" then put 17 into FF
-
- get the number of lines in field FF
- put it into LL
- repeat for LL times
- set cursor to busy
- get line CC of field FF
- put it after MM
- put return after MM
- add 1 to CC
- end repeat
-
- put MM into field "SHOW"
- repeat with c = 1 to number of card buttons
- Hide card button c
- end repeat
- show field "SHOW"
-
- end mouseUp
-
-
-
- -- part 62 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=409 top=167 right=191 bottom=507
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: Name Card
- ----- HyperTalk script -----
- on mouseUp
- put empty into NameCard
- if field "Name" is empty
- then
- ask "Please enter the name of this card:"
- if it is empty then exit mouseUp
- put it into NameCard
- set the name of this card to NameCard
- put NameCard into field "Name"
- end if
-
- if field "Name" is not empty
- then
- put first line of field "Name" into NameCard
- set the name of this card to NameCard
- end if
-
- end mouseUp
-
-
-
- -- part 63 (button)
- -- low flags: 00
- -- high flags: 8002
- -- rect: left=406 top=252 right=274 bottom=506
- -- title width / last selected line: 0
- -- icon id / first selected line: 0 / 0
- -- text alignment: 1
- -- font id: 0
- -- text size: 12
- -- style flags: 0
- -- line height: 16
- -- part name: New Card
- ----- HyperTalk script -----
- on mouseUp
- answer "Make another card like this one? " with "yes" or "no" or "cancel"
- if it is "cancel" then exit mouseUp
- if it is "no" then
- put "Go to the card which you want to copy" into the message box
- exit mouseUp
- end if
-
- if it is "yes" then
-
- domenu "copy Card"
- domenu paste card
- set name of this card to empty
- repeat with i=1 to number of fields
- put empty into field i
- end repeat
- put empty into field "Name"
- end if
-
- end mouseUp
-
-